home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / port_2 / basic / master.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  2.1 KB  |  81 lines
  1.  
  2. rem MASTERMIND für Portfolio von R.Rumrich 
  3. DIM B$(6):DIM C(6): DIM N(6):S$=""
  4. 1 S$="":A$="":M=0:X=0:Y=0:Z=0:G=0 
  5. CLS:BOX 2,13,6,24,1:LOCATE 3,14
  6. PRINT "**********" :LOCATE 4,14
  7. PRINT "MASTERMIND" :LOCATE 5,14
  8. PRINT "**********"
  9. LOCATE 8,1
  10. PRINT "HILFE J/N?"
  11. 10 A$=INKEY$:IF A$=""THEN GOTO 10
  12. IF A$="J" OR A$="j" THEN GOTO 100
  13. CLS: GOTO 105
  14. 100 CLS: PRINT "ICH DENKE MIR EINE FOLGE"
  15. PRINT "DER BUCHSTABEN VON A BIS G"
  16. PRINT "SIE HABEN 10 VERSUCHE,SIE ZU RATEN"
  17. GOSUB 1000
  18. PRINT "JEDER RICHTIGE BUCHSTABE AN DER"
  19. PRINT "RICHTIGEN STELLE WIRD DURCH"
  20. PRINT CHR$ (2) ; " ANGEZEIGT"
  21. GOSUB 1000
  22. PRINT "JEDER RICHTIGE BUCHSTABE AN EINER"
  23. PRINT "ANDEREN STELLE WIRD DURCH"
  24. PRINT CHR$ (79) ; " ANGEZEIGT"
  25. PRINT "GROSSBUCHSTABEN EINGEBEN!!!"
  26. GOSUB 1000
  27. 105 MC = MENU(3,12,3,0,0,4,"SCHWIERIGK.","LEICHT", "MITTEL", "SCHWER")
  28. D = MC%256
  29. D = D+1
  30. CLS
  31. RANDOMIZE
  32. CLS
  33. FOR A=1 TO 3+D
  34. X=RAND(8):IF X=0 THEN X=X+1
  35. A$=CHR$(64+X)
  36. S$=S$+A$: NEXT A
  37. G=0
  38. 300 INCR(G):IF G>10 THEN GOTO 600
  39. M=0
  40. LOCATE 7,1
  41. PRINT "RATEN SIE ";3+D;" BUCHSTABEN",
  42. 350 INPUT G$ : IF LEN(G$)=3+D THEN GOTO 370
  43. LOCATE 7,27:PRINT"      "
  44. LOCATE 7,1: PRINT "NEIN,  ";3+D;" BUCHSTABEN",:alarm:GOTO 350
  45. 370 IF G$=S$ THEN GOTO 640
  46. FOR Y=1 TO 3+D
  47. B$(Y)=MID$(S$,Y,1)
  48. IF B$(Y)=MID$(G$,Y,1) THEN M=M+1:N(M)=2:B$(Y)=" ":C(Y)=1
  49. NEXT Y
  50. Y=0
  51. 400 INCR(Y):IF Y>3+D THEN GOTO 500
  52. x=0
  53. 450 INCR(X):IF X>3+D THEN GOTO 470
  54. IF B$(X)=MID$(G$,Y,1) AND C(Y)=0 THEN M=M+1 : N(M)=79:B$(X)=" ":GOTO 470 
  55. GOTO 450
  56. 470 GOTO 400
  57. 500 IF G>5 THEN LOCATE G-5,20 ELSE LOCATE G,2
  58. PRINT G$
  59. FOR A=1 TO 3+D
  60. IF G>5 THEN LOCATE G-5,26+A ELSE LOCATE G,8+A
  61. PRINT CHR$(N(A))
  62. NEXT A
  63. FOR B=1 TO 3+D: C(B)=0:NEXT B
  64. FOR B=1 TO 3+D: N(B)=0:NEXT B
  65. LOCATE 7,27:PRINT "          "
  66. GOTO 300
  67. 600 PRINT " SIE HABEN VERSAGT"
  68. PRINT "ES WAR : "S$;"  TASTE!":WAIT
  69. GOTO 650
  70. 640 PRINT "RICHTIG! ES WAR ";S$;"!";"  -TASTE DRüCKEN!":WAIT
  71. 650 CLS
  72. MC = MENU(3,12,3,0,0,3,"SPIEL?","JA","NEIN")
  73. Q = MC%256
  74. Q = Q+1
  75. IF Q=1 THEN GOTO 1
  76. CLS: END
  77. 1000 LOCATE 7,1:PRINT"WEITER - TASTE DRüCKEN"
  78. WAIT: CLS: RETURN 
  79.                                         
  80.  
  81.